library(arules)
groceries<-read.transactions("groceries.csv",sep = ",")
summary(groceries)
itemFrequencyPlot(groceries,topN=20)

#sample for randomly extracting samples, image function for visualing sparse matrix
image(sample(groceries,100))
groceries_rule<-apriori(data = groceries,parameter =list(support=0.006,confidence=0.25,minlen=2))
plotly_arules(groceries_rule)
summary(groceries_rule)
